home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gl.exec < prev    next >
Encoding:
Text File  |  1992-06-29  |  788 b   |  28 lines
  1. /*
  2.  *        Name: GL EXEC, Gopher Tree Traverser (Gopher List)
  3.  *      Author: Rick Troth, Rice University, I/S VM Systems Support
  4.  *        Date: 1992-Feb-22, Jun-29
  5.  *
  6.  *        Note: Think of this as a FILELIST replacement.
  7.  *              Actually, it doesn't replace,  but wraps around
  8.  *              FILELIST,  resetting PF11 from XEDIT to EXEC GL.
  9.  *              When GL is invoked on a FILELIST,  it calls FILELIST;
  10.  *              when GL is invoked on any other file,  it calls XEDIT.
  11.  */
  12.  
  13. Address "COMMAND"
  14.  
  15. Parse Upper Arg fn ft fm rest
  16. If fn ^= "" & ft = "" Then ft = "FILELIST"
  17.  
  18. If ft = "FILELIST" Then Do
  19.     Push "COMMAND SET PF11 BEFORE MACRO" ,
  20.         "EXECUTE CURSOR EXEC GL /"
  21.     'EXEC FILELIST' fn ft fm '(FILELIST'
  22.     End
  23.  
  24. Else 'XEDIT' fn ft fm rest
  25.  
  26. Exit rc
  27.  
  28.